home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #119 (1991-03)(Amiga User Group Deutschland e.V.).zip
/
Franz PD Disk #119 (1991-03)(Amiga User Group Deutschland e.V.).adf
/
AmigaBASIC_Programme
/
Binär
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1989-07-03
|
1KB
|
30 lines
' *** Binär - Hexadezimal / Dezimal - Wandlung ***
' * *
' * © 1990 by Michael Gottwald *
' ************************************************
DEFDBL dez,Ldez,HighWort:PRINT "Maximal 32 Bits !":PRINT
Eingabe: INPUT "Binärzahl ";b$:IF b$="" OR LEN(b$)<2 THEN Eingabe
FOR i%=LEN(b$) TO 1 STEP -1:z$=MID$(b$,i%,1)
IF z$="1" THEN dez=dez+2^e:e=e+1
IF z$="0" THEN e=e+1
NEXT:IF e>32 THEN PRINT "Mehr als 32 Bits !!!":END
IF e>16 THEN Langwort
h$=HEX$(dez):h$="$"+STRING$(4-LEN(h$),"0")+h$
Ausgabe: PRINT:PRINT "%";b$;" = ";dez;" = ";h$:PRINT
PRINT "Das ist eine";e;CHR$(8);"-Bit-Zahl";
IF e=4 THEN PRINT " (Nibble);
IF e=8 THEN PRINT " (Byte)";
IF e=16 THEN PRINT " (Wort)";
IF e=32 THEN PRINT " (Langwort)";
PRINT ".":END
Langwort: Ldez=-(5.46559e-315-dez):LowWort=Ldez AND 65535:Low$=HEX$(LowWort)
IF LEN(Low$)<4 THEN Low$=STRING$(4-LEN(Low$),"0")+Low$
HighWort=Ldez AND -65536
HighWort%=HighWort/65536:High$=HEX$(HighWort%)
IF LEN(High$)<4 THEN High$=STRING$(4-LEN(High$),"0")+High$
h$="$"+High$+Low$:GOTO Ausgabe